home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_06 / pipeline / iteration / loan next >
Encoding:
Text File  |  1991-02-17  |  1.8 KB  |  174 lines
  1. %OP%TNN
  2. %OP%JUN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%DFT
  6. %OP%GRY
  7. %OP%PL57
  8. %OP%TM4
  9. %OP%HM0
  10. %OP%FM4
  11. %OP%BM4
  12. %OP%LM8
  13. %OP%RIY
  14. %CO:A,12,72%What monthly payment would need to be made in order to 
  15. cover the interest accrued on the principal?
  16.  
  17.  
  18.  
  19.  
  20. %R%Principal
  21. %V%%R%%D0%1000
  22. %R%Return
  23. %V%%R%A8*(((B8/100)+1)^C8)
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Where is the break-even point for a lump sum against 
  30. regular monthly payments at the same interest rate?
  31.  
  32. %R%Lump Sum
  33.  
  34. %V%%R%1000
  35.  
  36. %R%Value
  37.  
  38. %V%%R%A21+(A21*(B21/100))
  39. %V%%R%A25+(A25*(B$21/100))
  40. %V%%R%A26+(A26*(B$21/100))
  41. %V%%R%A27+(A27*(B$21/100))
  42. %V%%R%A28+(A28*(B$21/100))
  43. %V%%R%A29+(A29*(B$21/100))
  44. %V%%R%A30+(A30*(B$21/100))
  45. %V%%R%A31+(A31*(B$21/100))
  46. %V%%R%A32+(A32*(B$21/100))
  47. %V%%R%A33+(A33*(B$21/100))
  48. %CO:B,12,60%
  49.  
  50.  
  51. NB  Enter data only in "Principal", "Rate" 
  52.     and "Term" boxes
  53.  
  54. %R%Rate
  55. %V%%R%10
  56. %R%Repayment
  57. %V%%R%if(loopc=1,E8,F12+(F10/100))
  58. %R%Paid
  59. %V%%R%(B10*12)*C8
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66. %R%Rate
  67.  
  68. %V%%R%10
  69.  
  70.  
  71. %CO:C,12,48%
  72.  
  73.  
  74.  
  75.  
  76.  
  77. %R%Term 
  78. %V%%R%%D0%3
  79. %R%Value
  80. %V%%R%fv((B10)*12,B8/100,C8)
  81. %R%Saving
  82. %V%%R%C10-B12
  83. %R%Interest
  84. %V%%R%rate(B12,A8,C8*12)*1200
  85.  
  86.  
  87.  
  88.  
  89. %R%Monthly
  90.  
  91. %V%%R%25
  92.  
  93. %R%Value
  94.  
  95.  
  96. %V%%R%fv(C$21*12,B$21/100,D26)
  97. %V%%R%fv(C$21*12,B$21/100,D27)
  98. %V%%R%fv(C$21*12,B$21/100,D28)
  99. %V%%R%fv(C$21*12,B$21/100,D29)
  100. %V%%R%fv(C$21*12,B$21/100,D30)
  101. %V%%R%fv(C$21*12,B$21/100,D31)
  102. %V%%R%fv(C$21*12,B$21/100,D32)
  103. %V%%R%fv(C$21*12,B$21/100,D33)
  104. %V%%R%fv(C$21*12,B$21/100,D34)
  105. %CO:D,12,36%
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112. Yrs  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127. %R%Year
  128.  
  129. %V%%R%1
  130. %V%%R%D25+1
  131. %V%%R%D26+1
  132. %V%%R%D27+1
  133. %V%%R%D28+1
  134. %V%%R%D29+1
  135. %V%%R%D30+1
  136. %V%%R%D31+1
  137. %V%%R%D32+1
  138. %V%%R%D33+1
  139. %CO:E,12,24%
  140.  
  141.  
  142.  
  143.  
  144.  
  145. %R%Guess
  146. %V%%R%((A8+((A8*B8*C8)/100))/(C8*12))*0.94
  147. %R%Variance
  148. %V%%R%A10-C10
  149. %R%Loop No
  150. %V%%R%loopc
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162. %CO:F,12,12%
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169. %V%%R%A8+((A8*B8*C8)/100)
  170.  
  171. %V%%R%sgn(E10)
  172.  
  173. %V%%R%B10
  174. %CO:G,12,0%%CO:H,12,0%%CO:I,12,4%%CO:J,12,0%%CO:K,12,0%%CO:L,12,0%%CO:M,12,0%%CO:N,12,0%%CO:O,12,0%%CO:P,12,0%